home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_20_(11-1984).d64 / c_g board 4 (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  198b  |  10 lines
  1. 10 REM CREATE RELATIVE USER STATUS FILE
  2. 20 OPEN15,8,15:OPEN1,8,2,"USTAT,L,"+CHR$(86)
  3. 30 PRINT#15,"P"+CHR$(98)+CHR$(244)+CHR$(1)+CHR$(1)
  4. 40 PRINT#1,"@END"
  5. 50 CLOSE1:CLOSE15
  6. 60 END
  7. 65 OPEN15,8,15
  8. 70 INPUT#15,A$,B$,C$,D$:PRINTA$;B$;C$;D$
  9. 80 END
  10.